object UBuscadorCampanha: TUBuscadorCampanha
  Left = 0
  Top = 0
  Caption = 'UBuscadorCampanha'
  ClientHeight = 377
  ClientWidth = 631
  Color = clBtnFace
  OldCreateOrder = False
  OnCreate = UniFormCreate
  MonitoredKeys.Keys = <>
  PixelsPerInch = 96
  TextHeight = 13
  object pnlBuscador: TUniPanel
    Left = 0
    Top = 0
    Width = 631
    Height = 377
    Align = alClient
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clBtnFace
    TabOrder = 0
    object pnlFiltros: TUniPanel
      Left = 1
      Top = 41
      Width = 629
      Height = 136
      Align = alTop
      Anchors = [akLeft, akTop, akRight]
      Color = clBtnFace
      TabOrder = 1
      object rbComienceCamp: TUniRadioButton
        Left = 16
        Top = 115
        Width = 129
        Height = 17
        Checked = True
        Caption = 'Que comience con'
        TabOrder = 1
        ParentFont = False
        Font.Name = 'Century Gothic'
      end
      object rbContengaCamp: TUniRadioButton
        Left = 188
        Top = 115
        Width = 113
        Height = 17
        Checked = False
        Caption = 'Que contenga'
        TabOrder = 2
        ParentFont = False
        Font.Name = 'Century Gothic'
      end
      object rgFiltrosServ: TUniRadioGroup
        Left = 16
        Top = 7
        Width = 337
        Height = 59
        Items.Strings = (
          'C'#243'digo'
          'Nombre')
        ItemIndex = 0
        Caption = 'Buscar por:'
        TabOrder = 3
        ParentFont = False
        Font.Name = 'Century Gothic'
        Font.Style = [fsBold]
      end
      object dbBusquedaCamp: TUniEdit
        Left = 16
        Top = 79
        Width = 337
        Height = 22
        PasswordChar = #0
        CharCase = ecNormal
        MaxLength = 0
        CharEOL = #0
        ParentFont = False
        Font.Height = -13
        Font.Name = 'Century Gothic'
        TabOrder = 4
        Color = clWindow
        OnExit = dbBusquedaCampExit
      end
      object rgFiltroCampanha: TUniRadioGroup
        Left = 16
        Top = 3
        Width = 337
        Height = 62
        Items.Strings = (
          'C'#243'digo'
          'Nombre')
        ItemIndex = 0
        OnClick = rgFiltroCampanhaClick
        Caption = 'Buscar por:'
        TabOrder = 5
        ParentFont = False
        Font.Name = 'Century Gothic'
        Font.Style = [fsBold]
      end
    end
    object btnBuscarCampanha: TUniButton
      Left = 1
      Top = 177
      Width = 629
      Height = 25
      Caption = 'Buscar'
      Anchors = [akLeft, akTop, akRight]
      Align = alTop
      TabOrder = 2
      OnClick = btnBuscarCampanhaClick
    end
    object dbgBusquedaCamp: TUniDBGrid
      Left = 1
      Top = 202
      Width = 629
      Height = 175
      DataSource = dsBusqCampanha
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
      WebOptions.LoadMaskMsg = 'Please wait...'
      OnDblClick = dbgBusquedaCampDblClick
      StripeRows = False
      Align = alTop
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 3
      Columns = <
        item
          FieldName = 'NOMBRE_CAMPANHA'
          Title.Caption = 'DENOMINACION'
          Title.Font.Style = [fsBold]
          Width = 300
          Visible = True
          Expanded = False
        end
        item
          FieldName = 'FECHA_INICIO'
          Title.Alignment = taCenter
          Title.Caption = 'FECHA DE INICIO'
          Title.Font.Style = [fsBold]
          Width = 150
          Visible = True
          Alignment = taCenter
          Expanded = False
        end
        item
          FieldName = 'FECHA_FIN'
          Title.Alignment = taCenter
          Title.Caption = 'FECHA DE FINALIZACION'
          Title.Font.Style = [fsBold]
          Width = 150
          Visible = True
          Alignment = taCenter
          Expanded = False
        end>
    end
    object pnlTitulo: TUniPanel
      Left = 1
      Top = 1
      Width = 629
      Height = 41
      Align = alTop
      Anchors = [akLeft, akTop, akRight]
      Color = clSilver
      TabOrder = 4
      object lblTitulo: TUniLabel
        Left = 1
        Top = 1
        Width = 627
        Height = 39
        Alignment = taCenter
        AutoSize = False
        Caption = 'Buscador Turistik'
        Align = alClient
        Anchors = [akLeft, akTop, akRight, akBottom]
        ParentFont = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -21
        Font.Name = 'Century Gothic'
        Font.Style = [fsBold]
        TabOrder = 1
      end
    end
  end
  object qryBusqCampanha: TSQLQuery
    MaxBlobSize = -1
    ParamCheck = False
    Params = <>
    SQL.Strings = (
      'select A.* '
      'from CAMPANHA A'
      'WHERE A.ID_CAMPANHA = 0')
    SQLConnection = UniMainModule.SQLConnection_Reg1
    Left = 112
    Top = 248
    object qryBusqCampanhaID_CAMPANHA: TIntegerField
      FieldName = 'ID_CAMPANHA'
      Required = True
    end
    object qryBusqCampanhaNOMBRE_CAMPANHA: TStringField
      FieldName = 'NOMBRE_CAMPANHA'
      Required = True
      FixedChar = True
      Size = 100
    end
    object qryBusqCampanhaFECHA_INICIO: TDateField
      FieldName = 'FECHA_INICIO'
      Required = True
    end
    object qryBusqCampanhaFECHA_FIN: TDateField
      FieldName = 'FECHA_FIN'
      Required = True
    end
    object qryBusqCampanhaESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      Required = True
      Size = 1
    end
    object qryBusqCampanhaOPERADOR: TStringField
      FieldName = 'OPERADOR'
      Size = 10
    end
    object qryBusqCampanhaFECHA_CARGA: TDateField
      FieldName = 'FECHA_CARGA'
      Required = True
    end
  end
  object dsBusqCampanha: TDataSource
    DataSet = cdsBusqCampanha
    Left = 208
    Top = 248
  end
  object cdsBusqCampanha: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'provBusqCampanha'
    Left = 112
    Top = 304
    object cdsBusqCampanhaID_CAMPANHA: TIntegerField
      FieldName = 'ID_CAMPANHA'
      Required = True
    end
    object cdsBusqCampanhaNOMBRE_CAMPANHA: TStringField
      FieldName = 'NOMBRE_CAMPANHA'
      Required = True
      FixedChar = True
      Size = 100
    end
    object cdsBusqCampanhaFECHA_INICIO: TDateField
      FieldName = 'FECHA_INICIO'
      Required = True
    end
    object cdsBusqCampanhaFECHA_FIN: TDateField
      FieldName = 'FECHA_FIN'
      Required = True
    end
    object cdsBusqCampanhaESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      Required = True
      Size = 1
    end
    object cdsBusqCampanhaOPERADOR: TStringField
      FieldName = 'OPERADOR'
      Size = 10
    end
    object cdsBusqCampanhaFECHA_CARGA: TDateField
      FieldName = 'FECHA_CARGA'
      Required = True
    end
  end
  object provBusqCampanha: TDataSetProvider
    DataSet = qryBusqCampanha
    Left = 208
    Top = 304
  end
end
